home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 25: Programming / pc_actual_25.iso / Delphi / Duck Report / _SETUP.1 / FieldV.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-08-13  |  1.1 KB  |  48 lines
  1. unit FieldV;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, DREng, StdCtrls, DB;
  8.  
  9. type
  10.   TFormFieldValue = class(TForm)
  11.     DuckReport: TDuckReport;
  12.     Memo1: TMemo;
  13.     BPreview: TButton;
  14.     procedure BPreviewClick(Sender: TObject);
  15.     procedure DuckReportField(Sender: TObject; Field: TField;
  16.       var Value: String);
  17.   private
  18.         PaymethMethod:    TField;
  19.      ShipVIA:            TField;
  20.      Terms:            TField;
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   FormFieldValue: TFormFieldValue;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31. Procedure TFormFieldValue.BPreviewClick(Sender: TObject);
  32. Begin
  33.   DuckReport.OpenFile;
  34.     DuckReport.OpenDB;
  35.   PaymethMethod    := DuckReport.GetField ('PaymentMethod');
  36.     ShipVIA            := DuckReport.GetField ('ShipVIA');
  37.     Terms                := DuckReport.GetField ('Terms');
  38.     DuckReport.Preview;
  39. End;
  40. Procedure TFormFieldValue.DuckReportField(Sender: TObject; Field: TField;
  41.   var Value: String);
  42. Begin
  43.     if Field.DataType = ftString Then
  44.       Value    := UpperCase (Value);
  45. End;
  46.  
  47. End.
  48.